Leonardo daVinci/LEODAVINCI.ISO/DATA/M5_HOME.Dxr/00010_CLICK BUTTON.ls

Text File | 1996-11-14 | 444 b | 24 lines

global vRollMaini, vNextMovie, vCurContext

on mouseDown
  registerMouseDown(#code, vRollMaini)
  clickSound(1)
end

on mouseUp
  if not validateMouseDown(#code, vRollMaini) then
    exit
  end if
  set vNextMovie to getAt(vAreaNames, vRollMaini)
  if vNextMovie <> EMPTY then
    cursor(4)
    setInterface(0)
    setBack(vCurContext)
    if the machineType = 256 then
      go("fadeNgoW")
    else
      go("fadeNgo")
    end if
  end if
end